Top 10k strings from Compact Office (1986)(Robtek).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
4 ,i(i,j)*fy-1
4
3 "Which ? ";a
3 " ";a$(x,y)
2 x+z*fzx,y+z*fzy
2 a$=a$+"BN"
2 a$=a$+" ":
2 a$(x,y) (1
2 T$(CR,cp+1
2 CB,CP;" ";
2 ;ab*fzx,ab*fzy
2 ;-fzx,-fzy
2 )=" "
2 )=" "
2 "Record nr.: ";x-1
2 "Place cassette RETURN";c$
2 "Load cassette Press ENTER";z$
2 "Load cassette Press ENTER";n$
2 "FILENAME:";V$
2 "Documentname: ";y$
2 "DESCRIPTION:":
2 " AMOUNT:"
2 " MONTH:":
2 " BALANCE ";
2 " DAY:"
2 " FILE ";V$
2 " ITEM TOTAL"
1 z$=t$(cr,cp+1
1 y=ay+fzy*i
1 y+" "+a$(x,y)
1 x=ax+fzx*i+fx*j:
1 x-fx+g,y+i(i,j)*fy
1 x-fx+g,y+1
1 x+g,y+(g/fzx)*fzy+1
1 t$(j)=" "
1 sum=sum+a(i,2
1 s$="................................................................."
1 january february march april may june july august september oktober november december
1 i(i,j)*fy-1
1 h$="selection":
1 h$=" there is no data yet":
1 h$=" select":
1 h$=" key"
1 f$=" "
1 cb,cp-h;"_";
1 begin | TO load
1 b$="written for ROBTEK by BJ"
1 a$(x,y)="*"
1 Y$(I)="Y-axis "+
1 V$(I),Y$(I)
1 TURBOTXT O2
1 TURBOCLC ,$
1 TURBOBAS _{
1 TURBOACC
1 SALES EXPENSES PROFIT kolder
1 S(J) =S(J+1
1 P$(Y)=" "
1 P$(J)(PS+(X-1
1 N2,N3;"";:
1 KEY
1 JFMAMJJASOND 1986
1 I(I,J)=D/V(I)
1 I(I,J)*V(I),
1 I =S(J)
1 H$="MONTH NUMBER NOT ALLOWED"
1 H$="BETWEEN O AND "+
1 H$=". "
1 H$=" OKAY (Y/N)":
1 H$="
1 CP > CL-9
1 CP < cl-1
1 CB,CP-H;z$;
1 B$(B)=A$(X,B)
1 A$(X,Y)=A$(B,Y):
1 A$(X,B)=A$(X+1
1 A$(J)=A$(J+1
1 A$(B,Y)=""
1 ;k;" ";M$(K)
1 ;T$(CR+I-CB)(H+1
1 ;"These are the fields:":
1 ;"Search for";
1 ;"Record number: ";X;" "
1 ;"Record nr.: ";x;" "
1 ;"Record nr.: ";x-1
1 ;"Margin: Sheet/cont: ";
1 ;"List on ";a$(1
1 ;"Line length: ";cl
1 ;"Length: Lines: ";
1 ;"File is being sorted"
1 ;"Field ";y;
1 ;"Command not known"
1 ;" TAB NR,";J;":";s(j)
1 ;" ROBTEK 1986"
1 ;" : ";a$(x,a)
1 ;" ";a$(x,y)
1 ;" ";:
1 ; "Data already present!! ":
1 ; " ";:
1 10 10 10 ...4
1 1 stop 2 stop 3 s 4 s 5 s 6 s
1 ....|....|....|....|....|....|....|....|....|....|.........#####
1 ,y)="stop"
1 ,y)="STOP"
1 ,x);": "
1 ,Y);": ";A$(X,Y)
1 +z,(ab-z);v$(z);
1 +(ab-z);y$(z)(1
1 )="stop "
1 )="sales":
1 )="profit":
1 )="kolder"
1 )="expenses":
1 )="STOP "
1 )=" "
1 );" 1986 ROBTEK LTD"
1 ); " 1986 ROBTEK"
1 "type * to correct & 'stop' when you are ready":
1 "september","oktober","november"
1 "january","february","march"
1 "december"
1 "april","may","june","july","august"
1 "YOU WILL NOT BE ABLE TO SEE":
1 "Wich record(s)do you want to see"
1 "Which records do you want to see"
1 "Which record nr.";a:
1 "Which rec. nr. (0= stop):";x
1 "Which field (0=stop) ";y
1 "Which ? ";z$:
1 "Which ? ";z
1 "WHICH MONTH (1-12)";q
1 "Verify (y/n) ? ";z$
1 "Value ";D
1 "USE THE DECIMAL POINT NOT A"
1 "Tab at pos.:";s(j)
1 "TURBOACCOUNTS ";
1 "TO GET A CLEAR RESLT MAKE SURE"
1 "THERE ARE 1-15 UNITS PER BLOCK"
1 "THAT THE DATA FROM THE PREVIOUS"
1 "Stop TURBOTEXT (y/n) ";n$
1 "Start rec.nr.: ";a-1
1 "Start rec. nr.";a:
1 "Sequence nr: ";i:
1 "Selection ? ";Z$
1 "Select ?";
1 "Searching ......."
1 "Search for ? ";x$
1 "SHOW FILE CONTENTS"
1 "SELECT:";CD:
1 "SEARCH/DELETE"
1 "SCREEN OR PRINTER S/P";c$
1 "Rewind tape Press ENTER";z$
1 "Records present";n
1 "Record start";a:
1 "Record start ";a
1 "Record stop";b:
1 "Record stop ";b
1 "REMEMBER WHEN TYPING IN DATA";
1 "RECORD NUMBER";X;" "
1 "Print in progress"
1 "Press load/save RETURN";c$
1 "Press load RETURN";c$
1 "Press SAVE/LOAD Press ENTER";N$
1 "Press LOAD/SAVE Press ENTER";z$
1 "Press LOAD Press ENTER";z$
1 "Press LOAD Press ENTER";z
1 "Press LOAD Press ENTER";N$
1 "PRINTING..."
1 "PRINT RECORDS ON PRINTER":
1 "On which ? ";z$:
1 "Okay (y/n) ";n$
1 "New information"
1 "New contents ";a$(x,y)
1 "Name for X-axis:"
1 "Name ? ";a$(1
1 "NAME FOR X-AXIS:";B$
1 "NAME BLOCK";y$(i)
1 "NAME BLOCK # ";I;":";Y$(I):
1 "Menu :N - next record"
1 "Margin ";pb:
1 "MONTH:";R$:
1 "Lines ";pr:
1 "Line length:";cl:
1 "Length ";pl:
1 "LOAD FILE"
1 "JFMAMJJASOND 1986"
1 "Is this the one (y/n) ?";z$
1 "IT IS POSSIBLE TO MAKE FOUR":
1 "HOW MANY :";a$
1 "HOW MANY :";A$
1 "Good (y/n)";z$
1 "Filename: ";y$
1 "Filename ? ";y$:
1 "Filename (max.6 char)";a$:
1 "Filename (max.6 char)";a$
1 "File has been sorted"
1 "DESCRIPTION PAYMENT :";Q$
1 "DAY PAYMENT MADE :";S:
1 "DATA-POINTS FOR BLOCK"
1 "DATA INPUT":
1 "Correct (y/n) ";z$
1 "Contents ? ";a$(x,y)
1 "Cont/sheet ";c$:
1 "COMM. AFTER EACH BLOCK PRESS";
1 "Block ";i;" ";
1 "BLOCK SCALE: ";
1 "BLOCK SCALE";v$(I)
1 "BLOCK OTHERWISE"
1 "BLOCK IS HIGHER THAN THE NEXT":
1 "AMOUNT:";Q:
1 "A KEY FOR THE NEXT BLOCK."
1 "6 field are available per record"
1 "5. SAVE DATA"
1 "4. LOAD DATA"
1 "3. MONTHLY LIST"
1 "2.creditor"
1 "2. SEARCH/DELITE"
1 "10","SALES",12
1 "10","PROFIT",1
1 "10","EXPENSES",11
1 "1.debtor"
1 "1. NEW PAYMENTS"
1 "------------------------------------------"
1 "--------------------------------"
1 " Stop rec. nr.";b:
1 " the following values:":
1 " TURBOCALC ";
1 " Stop rec. nr.: ";b:
1 " Save data"
1 " SELECTION:":
1 " Press key on request"
1 " NUMBER OF UNITS: 12"
1 " NUMBER OF BLOCKS: 3":
1 " NAME FOR X-AXIS: "
1 " Load data"
1 " Input data"
1 " INPUT DATA":
1 " Here is an example using"
1 " H. Help - list of commands"
1 " E. End"
1 " 9. Save file"
1 " 8. Delete records"
1 " 7. end"
1 " 7. Print record contents"
1 " 6. example"
1 " 6. Sort (alphabetic)per field"
1 " 5. print a chart"
1 " 5. Search on a field"
1 " 4. make a chart"
1 " 4. Change or add records"
1 " 3. save data to tape"
1 " 3. List per field"
1 " 2. load data from tape"
1 " 2. See record contents"
1 " 1. type data in"
1 " 1. Input data in a new file"
1 " closed"
1 " TURBOBASE ";
1 " Not found ":
1 " Month: ";M$(q)
1 " MONTHLY LIST"
1 " 3.RANGE"
1 " 3. range"
1 " 2.load file"
1 " 2.ONE":
1 " 2. one":
1 " 2. change records"
1 " 2. Several records"
1 " 1.create new file"
1 " 1. all":
1 " 1. add records":
1 " 1. One record":
1 " 1. ALL":
1 " used: ";ab
1 " SAVE DATA"
1 " LOAD DATA"
1 " Input data"
1 " "; B$
1 " menu"
1 " ";b$
1 " ";b$;
1 " PRESS ENTER";Z$
1 " CLEARLY."
1 " used: ";au
1 " c l o s e d"
1 " S - stop"
1 " D - delete record"
1 " ":
1 " ";:
1 end | SAVE save
1 TURBOTEXT
1 EM=tab | NEW new | EDIT set
1 CB,CP-H;N$;
1 " Total: ";sum
1 keys | |
1 hulpv.scherm
1 *** zet tabs en marge
1 begin prg
1 "Scale ";V$(I)
1 filename
1 *** positie verder
1 *** positie terug
1 *** init tabregel
1 select
1 **** nain line
1 *** regel verder
1 *** example
1 *** regel terug
1 *** tab sprong
1 *** schryven
1 *** maand lyst
1 *** lezen
1 *** einde text
1 *** begin text
1 invoer
1 afsluiting
1 *** save
1 grafiek
1 ***DISPLAY
1 OP PRINTER
1 ***OPMAAK
1 ***SAVED
1 ***LOAD
1 *** init. prog
1 *** CLOSING
1 z
1
1
1
1
1